home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SMAILB.PLP < prev    next >
Text File  |  1991-04-01  |  1KB  |  34 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* Smailb(ONEPROC);
  3. **   複数のファイルをバイナリメール発信する｡
  4. **     ONEPROC:メールするファイル名列 ｢SMLB=B:\MAIL\TEST1.TXT,B:\MAIL,No,｣
  5. */
  6. /* %Smailb { */
  7. /*  [ONEPROC] */
  8.  
  9.   %send1mail { [SENDDATA]
  10.     %SENDID @head(SENDDATA,{:});
  11.     %SENDTITLE @body(SENDDATA,SENDID|{:},{::});
  12.     %SENDFILE @tail(SENDDATA,{::});
  13.     type({MAIL\n});
  14.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);type({UPLOAD PROT:BPL\n});
  15.     wait(ABORTTIME,{Abort},{2:バイナリー)\n＞},);type({2\n});
  16.     wait(ABORTTIME,{Abort},{のみで終了)\n：},);type(SENDFILE|{\n});
  17.     wait({1800},{Abort},{文字まで)\n：},);type(SENDTITLE|{\n});
  18.     wait(ABORTTIME,{Abort},{2:NG)\n：},);type({1\n});
  19.     wait(ABORTTIME,{Abort},{プ名　改行で終了)\n：},);type(SENDID|{\n});
  20.     wait(ABORTTIME,{Abort},{2:NG) \n：},);type({1\n});
  21.     loop({wait(ABORTTIME,{Abort},
  22.             {プ名　改行で終了)\n：},{type({\n});im({Yes})},
  23.             {\n：},{type({1\n});im({No})})});
  24.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  25.   };
  26.  
  27.   var ALLDATA[256];ALLDATA:=@body(ONEPROC,{SMLB=});
  28.   loop({%temp @head(ALLDATA,{//});
  29.         case(temp={No},
  30.           {Yes},{im({No})},
  31.           {No},{ALLDATA:=@body(ALLDATA,{//});send1mail(temp);im({Yes})}
  32.         )})
  33. /* }; */
  34.